home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / mainform.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  1.3 KB  |  35 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8.  
  9. #include "mainform.h"
  10. //---------------------------------------------------------------------------
  11. #pragma resource "*.dfm"
  12. TForm1 *Form1;
  13. //---------------------------------------------------------------------------
  14. __fastcall TForm1::TForm1(TComponent* Owner)
  15.         : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::RestrictSize(TMessage& Msg)
  20. {
  21.      ((POINT far *)Msg.LParam)[3].x = 300;
  22.      ((POINT far *)Msg.LParam)[3].y = 300;
  23.      ((POINT far *)Msg.LParam)[4].x = 400;
  24.      ((POINT far *)Msg.LParam)[4].y = 400;
  25.      TForm::Dispatch(&Msg);
  26. }
  27. //---------------------------------------------------------------------
  28. void __fastcall TForm1::FormResize(TObject *Sender)
  29. {
  30.      Label2->Caption = IntToStr(Width);
  31.      Label4->Caption = IntToStr(Height);
  32.      Memo1->Width = Form1->Width - 45;
  33. }
  34. //---------------------------------------------------------------------
  35.